home *** CD-ROM | disk | FTP | other *** search
- .key to/a,about/a
- if not "$<to>" eq "$cr"
- echo "It isn't here!"
- skip end
- endif
- if "<to>" eq "tourist"
- if "<about>" eq "guard"
- echo "The tourist says: 'I hear the guard likes powerplant. He will do anything"
- echo "to get a sprout of it.'"
- else
- echo "The tourist says: 'I know nothing about it.'"
- endif
- skip end
- endif
- if "<to>" eq "guard"
- if "<about>" eq "princess"
- echo "The guard says: 'Yes, someone captured her and I'm guarding her.'"
- skip end
- endif
- if "<about>" eq "key"
- echo "The guard says: 'Won't you give me something, so I could give it to you?'"
- else
- echo "The guard says: 'I know nothing about it.'"
- endif
- skip end
- endif
- echo "It doesn't respond to your queries."
- lab end
-